set wshs = WScript.CreateObject( "WScript.Shell" )
regentry = "HKCU\SOFTWARE\Red Hook Studios\Darkest Dungeon\commandline"

On Error Resume Next
default = wshs.RegRead( regentry )
On Error Goto 0

options = InputBox( "Enter command line options", "Command Line Options", default )
If options <> "" Then
	wshs.RegWrite regentry, options, "REG_SZ"
End If

commandline = "Darkest " + options
wshs.Run( commandline )
